lmfit <- lm(mpg~wt,data=mtcars)
summary(lmfit)
cook <- cooks.distance(lmfit)
plot(cook)
